home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Includes / IncAll.i < prev    next >
Text File  |  2000-04-02  |  23KB  |  1,621 lines

  1. EXTERN_LIB MACRO
  2.  XREF _LVO\1
  3.  ENDM
  4. STRUCTURE MACRO
  5. \1 EQU 0
  6. SOFFSET SET \2
  7.  ENDM
  8. FPTR MACRO
  9. \1 EQU SOFFSET
  10. SOFFSET SET SOFFSET+4
  11.  ENDM
  12. BOOL MACRO
  13. \1 EQU SOFFSET
  14. SOFFSET SET SOFFSET+2
  15.  ENDM
  16. BYTE MACRO
  17. \1 EQU SOFFSET
  18. SOFFSET SET SOFFSET+1
  19.  ENDM
  20. UBYTE MACRO
  21. \1 EQU SOFFSET
  22. SOFFSET SET SOFFSET+1
  23.  ENDM
  24. WORD MACRO
  25. \1 EQU SOFFSET
  26. SOFFSET SET SOFFSET+2
  27.  ENDM
  28. UWORD MACRO
  29. \1 EQU SOFFSET
  30. SOFFSET SET SOFFSET+2
  31.  ENDM
  32. SHORT MACRO
  33. \1 EQU SOFFSET
  34. SOFFSET SET SOFFSET+2
  35.  ENDM
  36. USHORT MACRO
  37. \1 EQU SOFFSET
  38. SOFFSET SET SOFFSET+2
  39.  ENDM
  40. LONG MACRO
  41. \1 EQU SOFFSET
  42. SOFFSET SET SOFFSET+4
  43.  ENDM
  44. ULONG MACRO
  45. \1 EQU SOFFSET
  46. SOFFSET SET SOFFSET+4
  47.  ENDM
  48. FLOAT MACRO
  49. \1 EQU SOFFSET
  50. SOFFSET SET SOFFSET+4
  51.  ENDM
  52. DOUBLE MACRO
  53. \1 EQU SOFFSET
  54. SOFFSET SET SOFFSET+8
  55.  ENDM
  56. APTR MACRO
  57. \1 EQU SOFFSET
  58. SOFFSET SET SOFFSET+4
  59.  ENDM
  60. CPTR MACRO
  61. \1 EQU SOFFSET
  62. SOFFSET SET SOFFSET+4
  63.  ENDM
  64. RPTR MACRO
  65. \1 EQU SOFFSET
  66. SOFFSET SET SOFFSET+2
  67.  ENDM
  68. LABEL MACRO
  69. \1 EQU SOFFSET
  70.  ENDM
  71. STRUCT MACRO
  72. \1 EQU SOFFSET
  73. SOFFSET SET SOFFSET+\2
  74.  ENDM
  75. ALIGNWORD MACRO
  76. SOFFSET SET (SOFFSET+1)&$fffffffe
  77.  ENDM
  78. ALIGNLONG MACRO
  79. SOFFSET SET (SOFFSET+3)&$fffffffc
  80.  ENDM
  81. ENUM MACRO
  82.  IFC '\1',''
  83. EOFFSET SET 0
  84.  ENDC
  85.  IFNC '\1',''
  86. EOFFSET SET \1
  87.  ENDC
  88.  ENDM
  89. EITEM MACRO
  90. \1 EQU EOFFSET
  91. EOFFSET SET EOFFSET+1
  92.  ENDM
  93. BITDEF MACRO
  94.  BITDEF0 \1,\2,B_,\3
  95. \@BITDEF SET 1<<\3
  96.  BITDEF0 \1,\2,F_,\@BITDEF
  97.  ENDM
  98. BITDEF0 MACRO
  99. \1\3\2 EQU \4
  100.  ENDM
  101. JSRLIB MACRO
  102.  XREF _LVO\1
  103.  jsr _LVO\1(a6)
  104.  ENDM
  105. JMPLIB MACRO
  106.  XREF _LVO\1
  107.  jmp _LVO\1(a6)
  108.  ENDM
  109. BSRSELF MACRO
  110.  XREF \1
  111.  bsr \1
  112.  ENDM
  113. BRASELF MACRO
  114.  XREF \1
  115.  bra \1
  116.  ENDM
  117. BLINK MACRO
  118.  IFNE DEBUG_DETAIL
  119.  bchg.b #1,$bfe001
  120.  ENDC
  121.  ENDM
  122. TRIGGER MACRO
  123.  IFGE DEBUG_DETAIL-\1
  124.  move.w #$5555,$2fe
  125.  ENDC
  126.  ENDM
  127. CLEAR MACRO
  128.  moveq.l #0,\1
  129.  ENDM
  130. CLEARA MACRO
  131.  suba.l \1,\1
  132.  ENDM
  133. PRINTF MACRO
  134.  IFGE DEBUG_DETAIL-\1
  135.  XREF kprint_macro
  136. PUSHCOUNT SET 0
  137.  IFNC '\9',''
  138.  move.l \9,-(sp)
  139. PUSHCOUNT SET PUSHCOUNT+4
  140.  ENDC
  141.  IFNC '\8',''
  142.  move.l \8,-(sp)
  143. PUSHCOUNT SET PUSHCOUNT+4
  144.  ENDC
  145.  IFNC '\7',''
  146.  move.l \7,-(sp)
  147. PUSHCOUNT SET PUSHCOUNT+4
  148.  ENDC
  149.  IFNC '\6',''
  150.  move.l \6,-(sp)
  151. PUSHCOUNT SET PUSHCOUNT+4
  152.  ENDC
  153.  IFNC '\5',''
  154.  move.l \5,-(sp)
  155. PUSHCOUNT SET PUSHCOUNT+4
  156.  ENDC
  157.  IFNC '\4',''
  158.  move.l \4,-(sp)
  159. PUSHCOUNT SET PUSHCOUNT+4
  160.  ENDC
  161.  IFNC '\3',''
  162.  move.l \3,-(sp)
  163. PUSHCOUNT SET PUSHCOUNT+4
  164.  ENDC
  165.  movem.l a0/a1,-(sp)
  166.  lea.l PSS\@(pc),A0
  167.  lea.l 4*2(SP),A1
  168.  BSR kprint_macro
  169.  movem.l (sp)+,a0/a1
  170.  bra.s PSE\@
  171. PSS\@ dc.b \2
  172.  IFEQ (\1&1)
  173.  dc.b 13,10
  174.  ENDC
  175.  dc.b 0
  176.  ds.w 0
  177. PSE\@
  178.  lea.l PUSHCOUNT(sp),sp
  179.  ENDC
  180.  ENDM
  181. PUSHM MACRO
  182.  IFGT NARG-1
  183.  FAIL
  184.  ENDC
  185. PUSHM_COUNT SET PUSHM_COUNT+1
  186. PUSHM_\*VALOF(PUSHM_COUNT) REG \1
  187.  movem.l PUSHM_\*VALOF(PUSHM_COUNT),-(sp)
  188.  ENDM
  189. POPM MACRO
  190.  movem.l (sp)+,PUSHM_\*VALOF(PUSHM_COUNT)
  191.  IFNC '\1','NOBUMP'
  192. PUSHM_COUNT SET PUSHM_COUNT+1
  193.  ENDC
  194.  ENDM
  195. NEWLIST MACRO
  196.  MOVE.L \1,LH_TAILPRED(\1)
  197.  ADDQ.L #4,\1
  198.  CLR.L (\1)
  199.  MOVE.L \1,-(\1)
  200.  ENDM
  201. TSTLIST MACRO
  202.  IFGT NARG-1
  203.  FAIL
  204.  ENDC
  205.  IFC '\1',''
  206.  CMP.L LH_TAIL+LN_PRED(A0),A0
  207.  ENDC
  208.  IFNC '\1',''
  209.  CMP.L LH_TAIL+LN_PRED(\1),\1
  210.  ENDC
  211.  ENDM
  212. TSTLST2 MACRO
  213.  MOVE.L \1,\2
  214.  TST.L (\2)
  215.  ENDM
  216. SUCC MACRO
  217.  MOVE.L (\1),\2
  218.  ENDM
  219. PRED MACRO
  220.  MOVE.L LN_PRED(\1),\2
  221.  ENDM
  222. IFEMPTY MACRO
  223.  CMP.L LH_TAIL+LN_PRED(\1),\1
  224.  BEQ \2
  225.  ENDM
  226. IFNOTEMPTY  MACRO
  227.  CMP.L LH_TAIL+LN_PRED(\1),\1
  228.  BNE \2
  229.  ENDM
  230. TSTNODE MACRO
  231.  MOVE.L (\1),\2
  232.  TST.L (\2)
  233.  ENDM
  234. NEXTNODE MACRO
  235.  MOVE.L \1,\2
  236.  MOVE.L (\2),\1
  237.  IFC '\0',''
  238.  BEQ \3
  239.  ENDC
  240.  IFNC '\0',''
  241.  BEQ.S \3
  242.  ENDC
  243.  ENDM
  244. ADDHEAD MACRO
  245.  MOVE.L (A0),D0
  246.  MOVE.L A1,(A0)
  247.  MOVEM.L D0/A0,(A1)
  248.  MOVE.L D0,A0
  249.  MOVE.L A1,LN_PRED(A0)
  250.  ENDM
  251. ADDTAIL MACRO
  252.  ADDQ.L #LH_TAIL,A0
  253.  MOVE.L LN_PRED(A0),D0
  254.  MOVE.L A1,LN_PRED(A0)
  255.  EXG D0,A0
  256.  MOVEM.L D0/A0,(A1)
  257.  MOVE.L A1,(A0)
  258.  ENDM
  259. REMOVE MACRO
  260.  MOVE.L (A1)+,A0
  261.  MOVE.L (A1),A1
  262.  MOVE.L A0,(A1)
  263.  MOVE.L A1,LN_PRED(A0)
  264.  ENDM
  265. REMHEAD MACRO
  266.  MOVE.L (A0),A1
  267.  MOVE.L (A1),D0
  268.  BEQ.S REMHEAD\@
  269.  MOVE.L D0,(A0)
  270.  EXG.L D0,A1
  271.  MOVE.L A0,LN_PRED(A1)
  272. REMHEAD\@
  273.  ENDM
  274. REMHEADQ MACRO
  275.  MOVE.L (\1),\2
  276.  MOVE.L (\2),\3
  277.  MOVE.L \3,(\1)
  278.  MOVE.L \1,LN_PRED(\3)
  279.  ENDM
  280. REMTAIL MACRO
  281.  MOVE.L LH_TAIL+LN_PRED(A0),A1
  282.  MOVE.L LN_PRED(A1),D0
  283.  BEQ.S REMTAIL\@
  284.  MOVE.L D0,LH_TAIL+LN_PRED(A0)
  285.  EXG.L D0,A1
  286.  MOVE.L A0,(A1)
  287.  ADDQ.L #4,(A1)
  288. REMTAIL\@
  289.  ENDM
  290. ALERT MACRO
  291.  movem.l d7/a5/a6,-(sp)
  292.  move.l #\1,d7
  293.  IFNC '\2',''
  294.  lea.l \2,a5
  295.  ENDC
  296.  move.l 4,a6
  297.  jsr _LVOAlert(a6)
  298.  movem.l (sp)+,d7/a5/a6
  299.  ENDM
  300. DEADALERT MACRO
  301.  move.l #\1,d7
  302.  IFNC '\2',''
  303.  lea.l \2,a5
  304.  ENDC
  305.  move.l 4,a6
  306.  jsr _LVOAlert(a6)
  307.  ENDM
  308. INITBYTE MACRO
  309.  IFLE (\1)-255
  310.  DC.B $a0,\1
  311.  DC.B  \2,0
  312.  MEXIT
  313.  ENDC
  314.  DC.B $e0,0
  315.  DC.W \1
  316.  DC.B \2,0
  317.  ENDM
  318. INITWORD MACRO
  319.  IFLE (\1)-255
  320.  DC.B $90,\1
  321.  DC.W \2
  322.  MEXIT
  323.  ENDC
  324.  DC.B $d0,0
  325.  DC.W \1
  326.  DC.W \2
  327.  ENDM
  328. INITLONG MACRO
  329.  IFLE (\1)-255
  330.  DC.B $80,\1
  331.  DC.L \2
  332.  MEXIT
  333.  ENDC
  334.  DC.B $c0,0
  335.  DC.W \1
  336.  DC.L \2
  337.  ENDM
  338. INITSTRUCT MACRO
  339.  DS.W 0
  340.  IFC '\4',''
  341. COUNT\@ SET 0
  342.  ENDC
  343.  IFNC '\4',''
  344. COUNT\@ SET \4
  345.  ENDC
  346. CMD\@ SET (((\1)<<4)!COUNT\@)
  347.  IFLE (\2)-255
  348.  DC.B (CMD\@)!$80
  349.  DC.B \2
  350.  MEXIT
  351.  ENDC
  352.  DC.B CMD\@!$0C0
  353.  DC.B (((\2)>>16)&$0FF)
  354.  DC.W ((\2)&$0FFFF)
  355.  ENDM
  356. STRING MACRO
  357.  dc.b \1
  358.  dc.b 0
  359.  CNOP 0,2
  360.  ENDM
  361. STRINGL MACRO
  362.  dc.b 13,10
  363.  dc.b \1
  364.  dc.b 0
  365.  CNOP 0,2
  366.  ENDM
  367. STRINGR MACRO
  368.  dc.b \1
  369.  dc.b 13,10,0
  370.  CNOP 0,2
  371.  ENDM
  372. STRINGLR MACRO
  373.  dc.b 13,10
  374.  dc.b \1
  375.  dc.b 13,10,0
  376.  CNOP 0,2
  377.  ENDM
  378. LIBINIT MACRO
  379.  IFC '\1',''
  380. COUNT_LIB SET LIB_USERDEF
  381.  ENDC
  382.  IFNC '\1',''
  383. COUNT_LIB SET \1
  384.  ENDC
  385.  ENDM
  386. LIBDEF MACRO
  387. \1 EQU COUNT_LIB
  388. COUNT_LIB SET COUNT_LIB-LIB_VECTSIZE
  389.  ENDM
  390. CALLLIB MACRO
  391.  IFGT NARG-1
  392.  FAIL
  393.  ENDC
  394.  JSR \1(A6)
  395.  ENDM
  396. LINKLIB MACRO
  397.  IFGT NARG-2
  398.  FAIL
  399.  ENDC
  400.  MOVE.L A6,-(SP)
  401.  MOVE.L \2,A6
  402.  JSR \1(A6)
  403.  MOVE.L (SP)+,A6
  404.  ENDM
  405. BEGINIO MACRO
  406.  LINKLIB DEV_BEGINIO,IO_DEVICE(A1)
  407.  ENDM
  408. ABORTIO MACRO
  409.  LINKLIB DEV_ABORTIO,IO_DEVICE(A1)
  410.  ENDM
  411. DEVINIT MACRO
  412.  IFC '\1',''
  413. CMD_COUNT SET CMD_NONSTD
  414.  ENDC
  415.  IFNC '\1',''
  416. CMD_COUNT SET \1
  417.  ENDC
  418.  ENDM
  419. DEVCMD MACRO
  420. \1 EQU CMD_COUNT
  421. CMD_COUNT SET CMD_COUNT+1
  422.  ENDM
  423. INT_ABLES MACRO
  424.  XREF _intena
  425.  ENDM
  426. DISABLE MACRO
  427.  IFC '\1',''
  428.  MOVE.W #$04000,_intena
  429.  ADDQ.B #1,IDNestCnt(A6)
  430.  MEXIT
  431.  ENDC
  432.  IFC '\2','NOFETCH'
  433.  MOVE.W #$04000,_intena
  434.  ADDQ.B #1,IDNestCnt(\1)
  435.  MEXIT
  436.  ENDC
  437.  IFNC '\1',''
  438.  MOVE.L 4,\1
  439.  MOVE.W #$04000,_intena
  440.  ADDQ.B #1,IDNestCnt(\1)
  441.  MEXIT
  442.  ENDC
  443.  ENDM
  444. ENABLE MACRO
  445.  IFC '\1',''
  446.  SUBQ.B #1,IDNestCnt(A6)
  447.  BGE.S ENABLE\@
  448.  MOVE.W #$0C000,_intena
  449. ENABLE\@
  450.  MEXIT
  451.  ENDC
  452.  IFC '\2','NOFETCH'
  453.  SUBQ.B #1,IDNestCnt(\1)
  454.  BGE.S ENABLE\@
  455.  MOVE.W #$0C000,_intena
  456. ENABLE\@
  457.  MEXIT
  458.  ENDC
  459.  IFNC '\1',''
  460.  MOVE.L 4,\1
  461.  SUBQ.B #1,IDNestCnt(\1)
  462.  BGE.S ENABLE\@
  463.  MOVE.W #$0C000,_intena
  464. ENABLE\@
  465.  MEXIT
  466.  ENDC
  467.  ENDM
  468. TASK_ABLES MACRO
  469.  XREF _LVOPermit
  470.  ENDM
  471. FORBID MACRO
  472.  IFC '\1',''
  473.  ADDQ.B #1,TDNestCnt(A6)
  474.  MEXIT
  475.  ENDC
  476.  IFC '\2','NOFETCH'
  477.  ADDQ.B #1,TDNestCnt(\1)
  478.  MEXIT
  479.  ENDC
  480.  IFNC '\1',''
  481.  MOVE.L 4,\1
  482.  ADDQ.B #1,TDNestCnt(\1)
  483.  MEXIT
  484.  ENDC
  485.  ENDM
  486. PERMIT MACRO
  487.  IFC '\1',''
  488.  JSR _LVOPermit(A6)
  489.  MEXIT
  490.  ENDC
  491.  IFC '\2','NOFETCH'
  492.  EXG.L A6,\1
  493.  JSR _LVOPermit(A6)
  494.  EXG.L A6,\1
  495.  MEXIT
  496.  ENDC
  497.  IFNC '\1',''
  498.  MOVE.L A6,-(SP)
  499.  MOVE.L 4,A6
  500.  JSR _LVOPermit(A6)
  501.  MOVE.L (SP)+,A6
  502.  MEXIT
  503.  ENDC
  504.  ENDM
  505. UTILITYNAME MACRO
  506.  DC.B 'utility.library',0
  507.  ENDM
  508. AUDIONAME MACRO
  509.  DC.B 'audio.device',0
  510.  ENDM
  511. BBID_DOS MACRO
  512.  dc.b 'DOS',0
  513.  ENDM
  514. BBID_KICK MACRO
  515.  dc.b 'KICK'
  516.  ENDM
  517. M_ASM MACRO
  518.  DC.B '>1'
  519.  ENDM
  520. M_AWM MACRO
  521.  DC.B '?7'
  522.  ENDM
  523. PARALLELNAME MACRO
  524.  dc.b 'parallel.device',0
  525.  ds.w 0
  526.  ENDM
  527. SERIALNAME MACRO
  528.  dc.b 'serial.device',0
  529.  dc.w 0
  530.  ENDM
  531. TIMERNAME MACRO
  532.  DC.B 'timer.device',0
  533.  DS.W 0
  534.  ENDM
  535. TD_NAME MACRO
  536.  DC.B 'trackdisk.device',0
  537.  DS.W 0
  538.  ENDM
  539. DOSNAME MACRO
  540.  DC.B 'dos.library',0
  541.  ENDM
  542. BPTR MACRO
  543.  LONG \1
  544.  ENDM
  545. BSTR MACRO
  546.  LONG \1
  547.  ENDM
  548. LIBENT MACRO
  549. _LVO\1 EQU count
  550. count SET count-vsize
  551.  ENDM
  552. InitAnimate MACRO
  553.  CLR.L \1
  554.  ENDM
  555. RemBob MACRO
  556.  OR.W #BF_BOBSAWAY,b_BobFlags+\1
  557.  ENDM
  558. GRAPHICSNAME MACRO
  559.  DC.B 'graphics.library',0
  560.  ENDM
  561. OTSUFFIX MACRO
  562.  dc.b '.otag',0
  563.  ds.w 0
  564.  ENDM
  565. OTE_Bullet MACRO
  566.  dc.b 'bullet',0
  567.  ds.w 0
  568.  ENDM
  569. AslName MACRO
  570.  DC.B 'asl.library',0
  571.  ENDM
  572. EXPANSIONNAME MACRO
  573.  dc.b 'expansion.library',0
  574.  ENDM
  575. GTMENU_USERDATA MACRO
  576.  move.l mu_SIZEOF(\1),\2
  577.  ENDM
  578. GTMENUITEM_USERDATA MACRO
  579.  move.l mi_SIZEOF(\1),\2
  580.  ENDM
  581. MENU_USERDATA MACRO
  582.  move.l mi_SIZEOF(\1),\2
  583.  ENDM
  584. SizeNVData MACRO
  585.  move.l -4(/1),/2
  586.  subq.l #4,/2
  587.  ENDM
  588. DATATYPESCLASS MACRO
  589.  DC.B 'datatypesclass',0
  590.  ENDM
  591. PICTUREDTCLASS MACRO
  592.  dc.b 'picture.datatype',0
  593.  ENDM
  594. SOUNDDTCLASS MACRO
  595.  DC.B 'sound.datatype',0
  596.  ENDM
  597. ANIMATIONDTCLASS MACRO
  598.  DC.B 'animation.datatype',0
  599.  ENDM
  600. BATTCLOCKNAME MACRO
  601.  dc.b 'battclock.resource',0
  602.  ds.w 0
  603.  ENDM
  604. BATTMEMNAME MACRO
  605.  dc.b 'battmem.resource',0
  606.  ds.w 0
  607.  ENDM
  608. CARDRESNAME MACRO
  609.  dc.b 'card.resource',0
  610.  ds.w 0
  611.  ENDM
  612. RESINIT MACRO
  613.  IFC '\1',''
  614. COUNT_RES SET RES_USERDEF
  615.  ENDC
  616.  IFNC '\1',''
  617. COUNT_RES SET \1
  618.  ENDC
  619.  ENDM
  620. RESDEF MACRO
  621. \1 EQU COUNT_RES
  622. COUNT_RES SET COUNT_RES-LIB_VECTSIZE
  623.  ENDM
  624. CIAANAME MACRO
  625.  DC.B 'ciaa.resource',0
  626.  ENDM
  627. CIABNAME MACRO
  628.  DC.B 'ciab.resource',0
  629.  ENDM
  630. DISKNAME MACRO
  631.  DC.B 'disk.resource',0
  632.  DS.W 0
  633.  ENDM
  634. FSRNAME MACRO
  635.  dc.b 'FileSystem.resource',0
  636.  ENDM
  637. MISCNAME MACRO
  638.  DC.B 'misc.resource',0
  639.  CNOP 0,2
  640.  ENDM
  641. POTGONAME MACRO
  642.  dc.b 'potgo.resource',0
  643.  ds.w 0
  644.  ENDM
  645. RXSLIBNAME MACRO
  646.  dc.b 'rexxsyslib.library',0
  647.  ENDM
  648. RXSDIR MACRO
  649.  dc.b 'REXX',0
  650.  ENDM
  651. RXSTNAME MACRO
  652.  dc.b 'ARexx',0
  653.  ENDM
  654. ICONNAME MACRO
  655.  DC.B 'icon.library',0
  656.  ENDM
  657. WORKBENCH_NAME MACRO
  658.  dc.b 'workbench.library',0
  659.  ds.w 0
  660.  ENDM
  661. TLnm: MACRO
  662.  IFEQ \1-1
  663.  dc.b NM_TITLE,0
  664.  ENDC
  665.  IFEQ \1-2
  666.  dc.b NM_ITEM,0
  667.  ENDC
  668.  IFEQ \1-3
  669.  dc.b NM_SUB,0
  670.  ENDC
  671.  IFGE \1-4
  672.  dc.b NM_END,0
  673.  ENDC
  674.  IFEQ \2+1
  675.  dc.l NM_BARLABEL
  676.  ENDC
  677.  IFNE \2+1
  678.  dc.l \2
  679.  ENDC
  680.  IFGE NARG-3
  681.  dc.l \3
  682.  ENDC
  683.  IFLT NARG-3
  684.  dc.l 0
  685.  ENDC
  686.  IFGE NARG-4
  687.  dc.w \4
  688.  ENDC
  689.  IFLT NARG-4
  690.  dc.w 0
  691.  ENDC
  692.  IFGE NARG-5
  693.  dc.l \5,0
  694.  ENDC
  695.  IFLT NARG-5
  696.  dc.l 0,0
  697.  ENDC
  698.  ENDM
  699. TLDo: MACRO
  700.  move.l a6,-(a7)
  701.  move.l xxp_tanb(a4),a6
  702.  jsr _LVOTL\1(a6)
  703.  move.l (a7)+,a6
  704.  ENDM
  705. TLfsub: MACRO
  706.  move.l d0,-(a7)
  707.  move.l \1,d0
  708.  TLDo Fsub
  709.  move.l (a7)+,d0
  710.  ENDM
  711. TLstrbuf: MACRO
  712.  move.l d0,-(a7)
  713.  move.l \1,d0
  714.  TLDo Strbuf
  715.  move.l (a7)+,d0
  716.  ENDM
  717. TLstra0: MACRO
  718.  move.l d0,-(a7)
  719.  move.l \1,d0
  720.  TLDo Stra0
  721.  move.l (a7)+,d0
  722.  ENDM
  723. TLerror: MACRO
  724.  TLDo Error
  725.  tst.l d0
  726.  eori #-1,CCR
  727.  ENDM
  728. TLopenread: MACRO
  729.  TLDo Openread
  730.  tst.l D0
  731.  ENDM
  732. TLopenwrite: MACRO
  733.  TLDo Openwrite
  734.  tst.l D0
  735.  ENDM
  736. TLwritefile: MACRO
  737.  movem.l d2-d3,-(a7)
  738.  move.l \1,d2
  739.  move.l \2,d3
  740.  TLDo Writefile
  741.  movem.l (a7)+,d2-d3
  742.  tst.l xxp_errn(a4)
  743.  eori #-1,CCR
  744.  ENDM
  745. TLreadfile: MACRO
  746.  movem.l d2-d3,-(a7)
  747.  move.l \1,d2
  748.  move.l \2,d3
  749.  TLDo Readfile
  750.  movem.l (a7)+,d2-d3
  751.  tst.l xxp_errn(a4)
  752.  eori #-1,CCR
  753.  ENDM
  754. TLclosefile: MACRO
  755.  TLDo Closefile
  756.  ENDM
  757. TLaschex: MACRO
  758.  move.l \1,a0
  759.  TLDo Aschex
  760.  tst.l d0
  761.  ENDM
  762. TLhexasc: MACRO
  763.  move.l d0,-(a7)
  764.  move.l \1,d0
  765.  move.l \2,a0
  766.  TLDo Hexasc
  767.  move.l (a7)+,d0
  768.  ENDM
  769. TLoutput: MACRO
  770.  move.l d0,-(a7)
  771.  TLDo Output
  772.  move.l (a7)+,d0
  773.  ENDM
  774. TLinput: MACRO
  775.  move.l d0,-(a7)
  776.  TLDo Input
  777.  move.l (a7)+,d0
  778.  ENDM
  779. TLpublic: MACRO
  780.  move.l \1,d0
  781.  TLDo Public
  782.  tst.l d0
  783.  ENDM
  784. TLchip: MACRO
  785.  move.l \1,d0
  786.  TLDo Chip
  787.  tst.l d0
  788.  ENDM
  789. TLprogdir: MACRO
  790.  TLDo Progdir
  791.  ENDM
  792. TLkeyboard: MACRO
  793.  TLDo Keyboard
  794.  ENDM
  795. TLwindow: MACRO
  796.  movem.l d1-d7/a0,-(a7)
  797.  move.l \1,d0
  798.  IFGT NARG-1
  799.  move.l \2,d1
  800.  move.l \3,d2
  801.  move.l \4,d3
  802.  move.l \5,d4
  803.  move.l \6,d5
  804.  move.l \7,d6
  805.  move.l \8,d7
  806.  IFGE NARG-9
  807.  move.l \9,a0
  808.  ENDC
  809.  ENDC
  810.  TLDo Window
  811.  movem.l (a7)+,d1-d7/a0
  812.  tst.l d0
  813.  ENDM
  814. TLwclose: MACRO
  815.  TLDo Wclose
  816.  ENDM
  817. TLtext: MACRO
  818.  movem.l d0-d1,-(a7)
  819.  move.l \1,d0
  820.  move.l \2,d1
  821.  TLDo Text
  822.  movem.l (a7)+,d0-d1
  823.  ENDM
  824. TLtsize: MACRO
  825.  TLDo Tsize
  826.  ENDM
  827. TLwfront: MACRO
  828.  TLDo Wfront
  829.  ENDM
  830. TLgetfont: MACRO
  831.  movem.l d0-d1/a0,-(a7)
  832.  move.l \1,a0
  833.  move.l \2,d0
  834.  move.l \3,d1
  835.  TLDo Getfont
  836.  movem.l (a7)+,d0-d1/a0
  837.  ENDM
  838. TLnewfont: MACRO
  839.  movem.l d0-d2,-(a7)
  840.  move.l \1,d0
  841.  move.l \2,d1
  842.  moveq #0,d2
  843.  IFGE NARG-3
  844.  move.l \3,d2
  845.  ENDC
  846.  TLDo Newfont
  847.  tst.l D0
  848.  movem.l (a7)+,d0-d2
  849.  ENDM
  850. TLaslfont: MACRO
  851.  movem.l d0-d1,-(a7)
  852.  move.l \1,d0
  853.  TLDo Aslfont
  854.  tst.l d0
  855.  movem.l (a7)+,d0-d1
  856.  ENDM
  857. TLaslfile: MACRO
  858.  movem.l d1/a0-a1,-(a7)
  859.  move.l \1,a0
  860.  move.l \2,a1
  861.  move.l \3,d0
  862.  moveq #1,d1
  863.  IFC '\4','sv'
  864.  moveq #-1,d1
  865.  ENDC
  866.  TLDo Aslfile
  867.  movem.l (a7)+,d1/a0-a1
  868.  tst.l d0
  869.  ENDM
  870. TLwslof: MACRO
  871.  TLDo Wslof
  872.  ENDM
  873. TLreqbev: MACRO
  874.  movem.l d0-d5/a0,-(a7)
  875.  move.l \1,d0
  876.  move.l \2,d1
  877.  move.l \3,d2
  878.  move.l \4,d3
  879.  and.l #$FFFF,d0
  880.  IFGE NARG-5
  881.  IFC '\5','rec'
  882.  bset #31,d0
  883.  ENDC
  884.  IFC '\5','box'
  885.  bset #30,d0
  886.  ENDC
  887.  ENDC
  888.  IFGE NARG-6
  889.  IFNC '\6',''
  890.  move.l \6,a0
  891.  bset #31,d1
  892.  ENDC
  893.  ENDC
  894.  IFGE NARG-7
  895.  bset #29,d0
  896.  move.l \7,d4
  897.  ENDC
  898.  IFEQ NARG-7
  899.  moveq #2,d5
  900.  ENDC
  901.  IFGE NARG-8
  902.  move.l \8,d5
  903.  ENDC
  904.  TLDo Reqbev
  905.  tst.l xxp_errn(a4)
  906.  eori.w #-1,CCR
  907.  movem.l (a7)+,d0-d5/a0
  908.  ENDM
  909. TLreqarea: MACRO
  910.  movem.l d0-d4/a0,-(a7)
  911.  move.l \1,d0
  912.  move.l \2,d1
  913.  move.l \3,d2
  914.  move.l \4,d3
  915.  IFGE NARG-5
  916.  IFNC '\5',''
  917.  bset #29,d0
  918.  move.l \5,d4
  919.  ENDC
  920.  ENDC
  921.  IFGE NARG-6
  922.  bset #31,d1
  923.  move.l \6,a0
  924.  ENDC
  925.  TLDo Reqarea
  926.  tst.l xxp_errn(a4)
  927.  eori.w #-1,CCR
  928.  movem.l (a7)+,d0-d4/a0
  929.  ENDM
  930. TLreqcls: MACRO
  931.  TLDo Reqcls
  932.  ENDM
  933. TLreqfull: MACRO
  934.  TLDo Reqfull
  935.  ENDM
  936. TLreqchoose: MACRO
  937.  move.l d1,-(a7)
  938.  moveq #0,d1
  939.  IFEQ NARG-2
  940.  move.l \1,d0
  941.  move.l \2,d1
  942.  ENDC
  943.  TLDo Reqchoose
  944.  move.l (a7)+,d1
  945.  tst.l d0
  946.  ENDM
  947. TLreqinput: MACRO
  948.  movem.l d1-d3,-(a7)
  949.  move.l \1,d0
  950.  moveq #0,d1
  951.  moveq #20,d2
  952.  IFGE NARG-2
  953.  IFC '\2','num'
  954.  moveq #-1,d1
  955.  moveq #4,d2
  956.  ENDC
  957.  ENDC
  958.  IFGE NARG-2
  959.  IFC '\2','hex'
  960.  moveq #1,d1
  961.  moveq #8,d2
  962.  ENDC
  963.  ENDC
  964.  IFGE NARG-3
  965.  move.l \3,d2
  966.  ENDC
  967.  moveq #0,d3
  968.  IFGE NARG-4
  969.  move.l \4,d3
  970.  ENDC
  971.  TLDo Reqinput
  972.  move.l d0,d1
  973.  move.l xxp_valu(a4),d0
  974.  tst.l d1
  975.  movem.l (a7)+,d1-d3
  976.  ENDM
  977. TLreqedit: MACRO
  978.  movem.l d1/a0,-(a7)
  979.  move.l \1,d0
  980.  move.l \2,d1
  981.  IFNC '\3','0'
  982.  IFNC '\3','1'
  983.  move.l \3,a0
  984.  TLDo Reqedit
  985.  movem.l (a7)+,d1/a0
  986.  tst.l xxp_errn(a4)
  987.  eori.w #-1,CCR
  988.  MEXIT
  989.  ENDC
  990.  ENDC
  991.  movem.l a1/a5,-(a7)
  992.  sub.w #100,a7
  993.  move.l a7,a1
  994.  move.l #xxp_xtext,(a1)+
  995.  move.l a4,(a1)+
  996.  IFC '\3','1'
  997.  move.l #xxp_xstyl,(a1)+
  998.  move.l xxp_FWork(a4),(a1)
  999.  add.l #256,(a1)+
  1000.  move.l #xxp_xfont,(a1)+
  1001.  move.l xxp_AcWind(a4),a5
  1002.  clr.w (a1)+
  1003.  move.w xxp_Fnum(a5),(a1)+
  1004.  move.l #xxp_xcspc,(a1)+
  1005.  clr.w (a1)+
  1006.  move.w xxp_Tspc(a5),(a1)+
  1007.  ENDC
  1008.  move.l #xxp_xmaxc,(a1)+
  1009.  move.l #20,(a1)+
  1010.  IFGE NARG-8
  1011.  IFC '\8','num'
  1012.  move.l #4,-4(a1)
  1013.  ENDC
  1014.  IFC '\8','hex'
  1015.  move.l #8,-4(a1)
  1016.  ENDC
  1017.  ENDC
  1018.  IFGE NARG-4
  1019.  IFNC '\4',''
  1020.  move.l \4,-4(a1)
  1021.  ENDC
  1022.  ENDC
  1023.  IFGE NARG-5
  1024.  IFNC '\5',''
  1025.  move.l #xxp_xmaxt,(a1)+
  1026.  move.l \5,(a1)+
  1027.  ENDC
  1028.  ENDC
  1029.  IFGE NARG-6
  1030.  IFNC '\6',''
  1031.  move.l #xxp_xmaxw,(a1)+
  1032.  move.l \6,(a1)+
  1033.  ENDC
  1034.  ENDC
  1035.  IFGE NARG-7
  1036.  IFNC '\7',''
  1037.  move.l #xxp_xmenu,(a1)+
  1038.  move.l \7,(a1)+
  1039.  ENDC
  1040.  ENDC
  1041.  IFGE NARG-8
  1042.  IFNC '\8',''
  1043.  move.l xxp_xtask,(a1)+
  1044.  clr.l (a1)+
  1045.  IFC '\8','num'
  1046.  move.l #xxp_xtdec,-4(a1)
  1047.  ENDC
  1048.  IFC \'8','hex'
  1049.  move.l #xxp_xthex,-4(a1)
  1050.  ENDC
  1051.  ENDC
  1052.  ENDC
  1053.  move.l #xxp_xiclr,(a1)+
  1054.  move.l #-1,(a1)+
  1055.  move.l #xxp_xtral,(a1)+
  1056.  move.l #-1,(a1)+
  1057.  move.l #xxp_xforb,(a1)+
  1058.  IFC '\3','0'
  1059.  move.l #xxp_xesty,(a1)+
  1060.  ENDC
  1061.  IFC '\3','1'
  1062.  clr.l (a1)+
  1063.  ENDC
  1064.  clr.l (a1)
  1065.  move.l a7,a0
  1066.  TLDo Reqedit
  1067.  add.w #100,a7
  1068.  movem.l (a7)+,a1/a5
  1069.  movem.l (a7)+,d1/a0
  1070.  tst.l xxp_errn(a4)
  1071.  eori.w #-1,CCR
  1072.  ENDM
  1073. TLreqshow: MACRO
  1074.  movem.l d1-d2/a5,-(a7)
  1075.  move.l \1,a0
  1076.  move.l \2,d0
  1077.  move.l \3,d1
  1078.  move.l \4,d2
  1079.  moveq #0,d3
  1080.  IFGE NARG-5
  1081.  move.l \5,d3
  1082.  ENDC
  1083.  IFGE NARG-6
  1084.  IFC 'seek','\6'
  1085.  bset #31,d2
  1086.  ENDC
  1087.  IFC 'smart','\6'
  1088.  bset #31,d2
  1089.  bset #30,d2
  1090.  ENDC
  1091.  ENDC
  1092.  move.l #-1,xxp_lcom(a4)
  1093.  IFGE NARG-7
  1094.  move.l \7,xxp_lcom(a4)
  1095.  ENDC
  1096.  TLDo Reqshow
  1097.  movem.l (a7)+,d1-d2/a5
  1098.  tst.l d0
  1099.  ENDM
  1100. TLassdev: MACRO
  1101.  TLDo Assdev
  1102.  tst.l d0
  1103.  ENDM
  1104. TLreqmenu: MACRO
  1105.  movem.l d0/a0,-(a7)
  1106.  move.l \1,a0
  1107.  TLDo Reqmenu
  1108.  tst.l d0
  1109.  movem.l (a7)+,d0/a0
  1110.  ENDM
  1111. TLreqmuset: MACRO
  1112.  TLDo Reqmuset
  1113.  ENDM
  1114. TLreqmuclr: MACRO
  1115.  TLDo Reqmuclr
  1116.  ENDM
  1117. TLreqinfo: MACRO
  1118.  movem.l d1-d2,-(a7)
  1119.  move.l \1,d0
  1120.  moveq #1,d1
  1121.  moveq #1,d2
  1122.  IFNE NARG-1
  1123.  move.l \2,d1
  1124.  IFNE NARG-2
  1125.  move.l \3,d2
  1126.  ENDC
  1127.  ENDC
  1128.  TLDo Reqinfo
  1129.  movem.l (a7)+,d1-d2
  1130.  tst.l d0
  1131.  ENDM
  1132. TLwpoll: MACRO
  1133.  TLDo Wpoll
  1134.  tst.l d0
  1135.  ENDM
  1136. TLtrim: MACRO
  1137.  movem.l d0-d1,-(a7)
  1138.  move.l \1,d0
  1139.  move.l \2,d1
  1140.  TLDo Trim
  1141.  tst.l xxp_errn(a4)
  1142.  eori.w #-1,CCR
  1143.  movem.l (a7)+,d0-d1
  1144.  ENDM
  1145. TLwsub: MACRO
  1146.  move.l d0,-(a7)
  1147.  move.l \1,d0
  1148.  TLDo Wsub
  1149.  move.l (a7)+,d0
  1150.  ENDM
  1151. TLwpop: MACRO
  1152.  move.l d0,-(a7)
  1153.  move.l \1,d0
  1154.  TLDo Wpop
  1155.  move.l (a7)+,d0
  1156.  ENDM
  1157. TLmultiline: MACRO
  1158.  movem.l d0-d1,-(a7)
  1159.  move.l \1,d0
  1160.  move.l \2,d1
  1161.  TLDo Multiline
  1162.  movem.l (a7)+,d0-d1
  1163.  tst.l xxp_errn(a4)
  1164.  eori.w #-1,ccr
  1165.  ENDM
  1166. TLwupdate: MACRO
  1167.  TLDo Wupdate
  1168.  ENDM
  1169. TLwcheck: MACRO
  1170.  movem.l d0-d1,-(a7)
  1171.  TLDo Wcheck
  1172.  tst.l d0
  1173.  movem.l (a7)+,d0-d1
  1174.  ENDM
  1175. TLfloat: MACRO
  1176.  move.l \1,a0
  1177.  move.l \2,a1
  1178.  TLDo Float
  1179.  tst.w d0
  1180.  eori.w #-1,ccr
  1181.  ENDM
  1182. TLbusy: MACRO
  1183.  TLDo Busy
  1184.  ENDM
  1185. TLunbusy: MACRO
  1186.  TLDo Unbusy
  1187.  ENDM
  1188. TLreqcolor: MACRO
  1189.  move.l \1,d0
  1190.  TLDo Reqcolor
  1191.  tst.l d0
  1192.  ENDM
  1193. TLonmenu: MACRO
  1194.  movem.l d0-d2,-(a7)
  1195.  move.l \1,d0
  1196.  move.l \2,d1
  1197.  move.l \3,d2
  1198.  TLDo Onmenu
  1199.  movem.l (a7)+,d0-d2
  1200.  ENDM
  1201. TLoffmenu: MACRO
  1202.  movem.l d0-d2,-(a7)
  1203.  move.l \1,d0
  1204.  move.l \2,d1
  1205.  move.l \3,d2
  1206.  TLDo Offmenu
  1207.  movem.l (a7)+,d0-d2
  1208.  ENDM
  1209. TLprefdir: MACRO
  1210.  movem.l d0/a0,-(a7)
  1211.  move.l \1,a0
  1212.  moveq #0,d0
  1213.  IFC '\2','save'
  1214.  moveq #-1,d0
  1215.  ENDC
  1216.  TLDo Prefdir
  1217.  movem.l (a7)+,d0/a0
  1218.  ENDM
  1219. TLpreffil: MACRO
  1220.  movem.l d0-d3/a0,-(a7)
  1221.  move.l \1,a0
  1222.  moveq #0,d0
  1223.  IFC '\2','save'
  1224.  moveq #-1,d0
  1225.  ENDC
  1226.  move.l \3,d2
  1227.  move.l \4,d3
  1228.  TLDo Preffil
  1229.  movem.l (a7)+,d0-d3/a0
  1230.  ENDM
  1231. TLbad: MACRO
  1232.  move.l d0,-(a7)
  1233.  move.l \1,d0
  1234.  TLDo Strbuf
  1235.  TLDo Output
  1236.  move.l (a7)+,d0
  1237.  subq.w #1,xxp_ackn(a4)
  1238.  ENDM
  1239. TLstring: MACRO
  1240.  TLstrbuf \1
  1241.  TLtrim \2,\3
  1242.  ENDM
  1243. TLoutstr: MACRO
  1244.  TLstrbuf \1
  1245.  TLoutput
  1246.  ENDM
  1247. TLwindow0: MACRO
  1248.  TLwindow #-1
  1249.  TLwindow #0,#0,#0,#640,#100,xxp_Width(a4),xxp_Height(a4),#0,#st_1
  1250.  ENDM
  1251. TLscreen: MACRO
  1252.  movem.l d0-d1/a0-a1/a6,-(a7)
  1253.  sub.l #52,a7
  1254.  move.l a7,a0
  1255.  move.l #SA_Width,(a0)+
  1256.  move.l #STDSCREENWIDTH,(a0)+
  1257.  move.l #SA_Height,(a0)+
  1258.  move.l #STDSCREENHEIGHT,(a0)+
  1259.  move.l #SA_Depth,(a0)+
  1260.  move.l \1,(a0)+
  1261.  move.l #SA_Title,(a0)+
  1262.  move.l \2,(a0)+
  1263.  move.l #SA_Pens,(a0)+
  1264.  move.l \3,(a0)+
  1265.  move.l #SA_DisplayID,(a0)+
  1266.  IFEQ NARG-3
  1267.  move.l #HIRES_KEY,(a0)+
  1268.  ENDC
  1269.  IFEQ NARG-4
  1270.  move.l \4,(a0)+
  1271.  ENDC
  1272.  move.l #TAG_END,(a0)+
  1273.  move.l xxp_intb(a4),a6
  1274.  sub.l a0,a0
  1275.  move.l a7,a1
  1276.  jsr _LVOOpenScreenTagList(a6)
  1277.  clr.w xxp_Public(a4)
  1278.  add.l #52,a7
  1279.  move.l d0,xxp_Screen(a4)
  1280.  movem.l (a7)+,d0-d1/a0-a1/a6
  1281.  ENDM
  1282. TLattach: MACRO
  1283.  movem.l d0-d1/a0,-(a7)
  1284.  move.l \1,a0
  1285.  move.l a0,xxp_Mmem(a5)
  1286.  clr.b (a0)+
  1287.  move.l a0,xxp_Mtop(a5)
  1288.  subq.l #1,a0
  1289.  move.l \2,d0
  1290.  move.l d0,xxp_Mmsz(a5)
  1291.  add.l d0,a0
  1292.  clr.b -34(a0)
  1293.  clr.b -164(a0)
  1294.  clr.l xxp_Mcrr(a5)
  1295.  clr.l xxp_Mtpl(a5)
  1296.  move.w #76,xxp_Mmxc(a5)
  1297.  movem.l (a7)+,d0-d1/a0
  1298.  ENDM
  1299. TLgetilbm: MACRO
  1300.  movem.l d0-d1/a1,-(a7)
  1301.  moveq #-1,d0
  1302.  move.l \1,d1
  1303.  move.l \2,a1
  1304.  IFGE NARG-3
  1305.  IFNC '\3',''
  1306.  moveq #0,d0
  1307.  ENDC
  1308.  ENDC
  1309.  IFGE NARG-4
  1310.  bset #31,d1
  1311.  ENDC
  1312.  TLDo Getilbm
  1313.  movem.l (a7)+,d0-d1/a1
  1314.  tst.l xxp_errn(a4)
  1315.  eori.w #-1,CCR
  1316.  ENDM
  1317. TLputilbm: MACRO
  1318.  movem.l d0-d3/a0,-(a7)
  1319.  move.l \1,d0
  1320.  move.l \2,d1
  1321.  move.l \3,d2
  1322.  move.l \4,d3
  1323.  move.l \5,a0
  1324.  TLDo Putilbm
  1325.  movem.l (a7)+,d0-d3/a0
  1326.  tst.l xxp_errn(a4)
  1327.  eori.w #-1,CCR
  1328.  ENDM
  1329. TLresize: MACRO
  1330.  movem.l d0-d5/a0,-(a7)
  1331.  move.l \1,d0
  1332.  move.l \2,d1
  1333.  move.l \3,d2
  1334.  move.l \4,d3
  1335.  move.l \5,d4
  1336.  move.l \6,d5
  1337.  moveq #0,d6
  1338.  IFGE NARG-7
  1339.  IFNC '\7',''
  1340.  move.l \7,d6
  1341.  ENDC
  1342.  ENDC
  1343.  IFGE NARG-8
  1344.  move.l \8,a0
  1345.  bset #31,d1
  1346.  ENDC
  1347.  TLDo Resize
  1348.  movem.l (a7)+,d0-d5/a0
  1349.  ENDM
  1350. TLellipse: MACRO
  1351.  movem.l d0-d7/a0,-(a7)
  1352.  move.l \1,d0
  1353.  move.l \2,d1
  1354.  move.l \3,d2
  1355.  move.l \4,d3
  1356.  move.l \5,d4
  1357.  move.l \6,d5
  1358.  move.l \7,d6
  1359.  move.l \8,d7
  1360.  IFGE NARG-9
  1361.  IFNC '\9',''
  1362.  move.l \9,a0
  1363.  bset #31,d1
  1364.  ENDC
  1365.  IFGE NARG-10
  1366.  bset #31,d0
  1367.  ENDC
  1368.  ENDC
  1369.  TLDo Ellipse
  1370.  movem.l (a7)+,d0-d7/a0
  1371.  tst.l xxp_errn(a4)
  1372.  eori.w #-1,CCR
  1373.  ENDM
  1374. TLgetarea: MACRO
  1375.  movem.l d0-d3/a0,-(a7)
  1376.  move.l \1,d0
  1377.  move.l \2,d1
  1378.  move.l \3,d2
  1379.  move.l \4,d3
  1380.  move.l \5,a0
  1381.  TLDo Getarea
  1382.  tst.l d0
  1383.  movem.l (a7)+,d0-d3/a0
  1384.  ENDM
  1385. TLprogress: MACRO
  1386.  movem.l d0-d2,-(a7)
  1387.  move.l \1,d0
  1388.  move.l \2,d1
  1389.  moveq #0,d2
  1390.  IFGE NARG-3
  1391.  moveq #-1,d2
  1392.  IFC '\3','%'
  1393.  moveq #1,d2
  1394.  ENDC
  1395.  ENDC
  1396.  TLDo Progress
  1397.  movem.l (a7)+,d0-d2
  1398.  tst.l xxp_errn(a4)
  1399.  eori.w #-1,CCR
  1400.  ENDM
  1401. TLreqoff: MACRO
  1402.  TLDo Reqoff
  1403.  ENDM
  1404. TLhexasc16: MACRO
  1405.  movem.l d0-d1,-(a7)
  1406.  move.l \1,d0
  1407.  move.l \2,d1
  1408.  move.l \3,a0
  1409.  TLDo Hexasc16
  1410.  movem.l (a7)+,d0-d1
  1411.  ENDM
  1412. TLreqfont: MACRO
  1413.  move.l \1,d0
  1414.  TLDo Reqfont
  1415.  tst.l xxp_errn(a4)
  1416.  eori.w #-1,CCR
  1417.  ENDM
  1418. TLdata: MACRO
  1419.  movem.l d0-d1,-(a7)
  1420.  move.l \1,d0
  1421.  move.l \2,d1
  1422.  TLDo Data
  1423.  tst.l d0
  1424.  movem.l (a7)+,d0-d1
  1425.  ENDM
  1426. TLwscroll: MACRO
  1427.  movem.l d0-d1,-(a7)
  1428.  moveq #-1,d0
  1429.  IFC '\1','set'
  1430.  moveq #0,d0
  1431.  ENDC
  1432.  moveq #0,d1
  1433.  IFGE NARG-2
  1434.  IFC '\2','vert'
  1435.  moveq #-1,d1
  1436.  ENDC
  1437.  IFC '\2','horz'
  1438.  moveq #1,d1
  1439.  ENDC
  1440.  ENDC
  1441.  TLDo Wscroll
  1442.  movem.l (a7)+,d0-d1
  1443.  ENDM
  1444. TLbutmon: MACRO
  1445.  movem.l d1-d2,-(a7)
  1446.  move.l \1,d1
  1447.  move.l \2,d2
  1448.  TLDo Butmon
  1449.  tst.l d0
  1450.  movem.l (a7)+,d1-d2
  1451.  ENDM
  1452. TLbutstr: MACRO
  1453.  move.l a0,-(a7)
  1454.  move.l \1,a0
  1455.  TLDo Butstr
  1456.  move.l (a7)+,a0
  1457.  ENDM
  1458. TLbutprt: MACRO
  1459.  TLDo Butprt
  1460.  tst.l xxp_errn(a4)
  1461.  eori.w #-1,CCR
  1462.  ENDM
  1463. TLbuttxt: MACRO
  1464.  move.l a0,-(a7)
  1465.  move.l \1,a0
  1466.  TLDo Buttxt
  1467.  move.l (a7)+,a0
  1468.  tst.l xxp_errn(a4)
  1469.  eori.w #-1,CCR
  1470.  ENDM
  1471. TLslider: MACRO
  1472.  move.l a5,-(a7)
  1473.  move.l \1,a5
  1474.  TLDo Slider
  1475.  move.l (a7)+,a5
  1476.  tst.l xxp_errn(a4)
  1477.  eori.w #-1,CCR
  1478.  ENDM
  1479. TLpassword: MACRO
  1480.  move.l \1,d0
  1481.  TLDo Password
  1482.  tst.l d0
  1483.  ENDM
  1484. TLslimon: MACRO
  1485.  movem.l d0-d3,-(a7)
  1486.  move.l \1,d1
  1487.  move.l \2,d2
  1488.  move.l \3,d3
  1489.  TLDo Slimon
  1490.  tst.l d0
  1491.  movem.l (a7)+,d0-d3
  1492.  ENDM
  1493. TLreqredi: MACRO
  1494.  move.l a5,-(a7)
  1495.  move.l \1,a5
  1496.  TLDo Reqredi
  1497.  move.l (a7)+,a5
  1498.  ENDM
  1499. TLreqchek: MACRO
  1500.  movem.l d2-d3,-(a7)
  1501.  move.l \1,d2
  1502.  move.l \2,d3
  1503.  TLDo Reqchek
  1504.  movem.l (a7)+,d2-d3
  1505.  tst.l xxp_errn(a4)
  1506.  eori.w #-1,CCR
  1507.  ENDM
  1508. TLreqon: MACRO
  1509.  move.l \1,a5
  1510.  TLDo Reqon
  1511.  tst.l xxp_errn(a4)
  1512.  eori.w #-1,CCR
  1513.  ENDM
  1514. TLprefs: MACRO
  1515.  move.l d0,-(a7)
  1516.  moveq #1,d0
  1517.  IFGE NARG-1
  1518.  moveq #-1,d0
  1519.  ENDC
  1520.  TLDo Prefs
  1521.  move.l (a7)+,d0
  1522.  ENDM
  1523. TLmget: MACRO
  1524.  TLDo Mget
  1525.  ENDM
  1526. TLfreebmap: MACRO
  1527.  movem.l d0-d2/a0-a3/a6,-(a7)
  1528.  move.l xxp_sysb(a4),a6
  1529.  move.l \1,a3
  1530.  move.l a3,a2
  1531.  addq.l #bm_Planes,a2
  1532.  moveq #0,d2
  1533.  move.b bm_Depth(a3),d2
  1534.  subq.w #1,d2
  1535. .fbmp:
  1536.  move.l (a2)+,a1
  1537.  jsr _LVOFreeVec(a6)
  1538.  dbra d2,.fbmp
  1539.  move.l a3,a1
  1540.  jsr _LVOFreeVec(a6)
  1541.  movem.l (a7)+,d0-d2/a0-a3/a6
  1542.  ENDM
  1543. TLembed: MACRO
  1544.  ENDM
  1545. TLpict:MACRO
  1546.  movem.l d0-d2,-(a7)
  1547.  move.l \1,d0
  1548.  move.l \2,d1
  1549.  move.l \3,d2
  1550.  TLDo Pict
  1551.  movem.l (a7)+,d0-d2
  1552.  tst.l xxp_errn(a4)
  1553.  eori.w #-1,CCR
  1554.  ENDM
  1555. TLtabmon: MACRO
  1556.  movem.l d1-d3,-(a7)
  1557.  move.l \1,d0
  1558.  move.l \2,d1
  1559.  move.l \3,d2
  1560.  move.l \4,d3
  1561.  TLDo Tabmon
  1562.  movem.l (a7)+,d1-d3
  1563.  tst.l d0
  1564.  ENDM
  1565. TLtabs: MACRO
  1566.  movem.l d0-d3,-(a7)
  1567.  move.l \1,d0
  1568.  IFGE NARG-2
  1569.  move.l \2,d1
  1570.  IFGE NARG-3
  1571.  move.l \3,d2
  1572.  IFGE NARG-4
  1573.  move.l \4,d3
  1574.  ENDC
  1575.  ENDC
  1576.  ENDC
  1577.  TLDo Tabs
  1578.  movem.l (a7)+,d0-d3
  1579.  tst.l xxp_errn(a4)
  1580.  eori.w #-1,CCR
  1581.  ENDM
  1582. TLdropdown: MACRO
  1583.  movem.l d0-d7,-(a7)
  1584.  moveq #-1,d0
  1585.  IFC 'draw','\1'
  1586.  moveq #0,d0
  1587.  ENDC
  1588.  move.l \2,d1
  1589.  move.l \3,d2
  1590.  moveq #1,d3
  1591.  IFNC '','\4'
  1592.  move.l \4,d3
  1593.  ENDC
  1594.  move.l \5,d4
  1595.  move.l \6,d5
  1596.  moveq #0,d6
  1597.  IFGE NARG-7
  1598.  IFNC '','\7'
  1599.  move.l \7,d6
  1600.  ENDC
  1601.  ENDC
  1602.  moveq #7,d7
  1603.  IFGE NARG-8
  1604.  IFNC 'cycle','\8'
  1605.  move.l \8,d7
  1606.  ENDC
  1607.  IFC 'cycle','\8'
  1608.  moveq #-1,d7
  1609.  ENDC
  1610.  ENDC
  1611.  TLDo Dropdown
  1612.  IFNC 'draw','\1'
  1613.  move.l d0,(a7)
  1614.  ENDC
  1615.  movem.l (a7)+,d0-d7
  1616.  IFC 'draw','\1'
  1617.  tst.l xxp_errn(a4)
  1618.  eori.w #-1,CCR
  1619.  ENDC
  1620.  ENDM
  1621.